Remove XEmacs compat code from gravatar.el

* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code

diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el
index cf61119ab2e7ebc06afed956c504cb53416a72e7..91da840e3a457820c60da396d712256aa24fe8e0 100644 (file)
--- a/lisp/image/gravatar.el
+++ b/lisp/image/gravatar.el
@@ -107,10 +107,8 @@ You can provide a list of argument to pass to CB in CBARGS."
        (let ((args (list url
                          'gravatar-retrieved
                          (list cb (when cbargs cbargs)))))
-         (when (> (length (if (featurep 'xemacs)
-                              (cdr (split-string (function-arglist 'url-retrieve)))
-                            (help-function-arglist 'url-retrieve)))
-                  4)
+         (when (> (length (help-function-arglist 'url-retrieve))
+                   4)
            (setq args (nconc args (list t))))
          (apply #'url-retrieve args))
       (apply cb